home *** CD-ROM | disk | FTP | other *** search
/ The Trig Explorer / The Trig Explorer.iso / mac / Explorer / inverse.dxr / 00001.ls next >
Encoding:
Text File  |  1998-07-22  |  493 b   |  22 lines
  1. on startMovie
  2.   cursor(-1)
  3.   sound stop 3
  4.   set the keyDownScript to "printPass"
  5.   set the keyUpScript to "numsOnly"
  6. end
  7.  
  8. on numsOnly
  9.   if (the key = RETURN) or (the key = ENTER) or (the keyCode = 76) then
  10.     dontPassEvent()
  11.   end if
  12.   if ((the key < "0") or (the key > "9")) and (the key <> ".") and (the key <> numToChar(8)) then
  13.     dontPassEvent()
  14.   end if
  15.   if field "R" > 999 then
  16.     put "99" into field "R"
  17.   end if
  18.   if field "R" <= 0 then
  19.     put "0.25" into field "R"
  20.   end if
  21. end
  22.